﻿Public Class EnumExtension
    Inherits MarkupExtension

    Public Property Type As Type
    Public Property Value As String

    Public Sub New()
    End Sub

    Public Sub New(_type As Type, _value As String)
        Type = _type
        Value = _value
    End Sub

    Public Overrides Function ProvideValue(serviceProvider As IServiceProvider) As Object
        Return [Enum].Parse(Type, Value)
    End Function
End Class
